home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 11 / FM Towns Free Software Collection 11.iso / t_os / tool / artemis1 / src / mainmenu.men < prev    next >
Encoding:
Text File  |  1995-11-08  |  4.2 KB  |  84 lines
  1. #    itemPenSample=0,    itemView,        itemColList,
  2. #    itemForeCol,        itemBackCol,    itemCmdColspace,    itemMixrate,
  3. #    itemIcons,
  4. #
  5. #    itemCmdPFLine,        itemCmdPFPset,    itemCmdLine,        itemCmdBlot,
  6. #    itemCmdSpray,        itemCmdBoxfill,    itemCmdPoly,
  7. #
  8. #    itemCmdPaint,        itemCmdGoshi,    itemCmdSmooth,        itemCmdCopy,
  9. #    itemCmdCopyPoly,    itemCmdZoom,    itemCmdZoomPoly,
  10. #
  11. #    itemCmdDiffuse,        itemCmdDiffuseA,    itemCmdSharp,
  12. #    itemCmdCopyBoxHturn,    itemCmdCopyBoxVturn,
  13. #    itemCmdCopyPolyHturn,    itemCmdCopyPolyVturn,
  14.     
  15. menubegin mainmenu
  16.     title "\a\a\a\a\a\a\a\a\a version 1.2k"
  17.     size 378 138
  18.     dispfunc disp_mainmenu
  19.     erasefunc erase_mainmenu
  20.     let MIXRATX 8
  21.     let MIXRATY 122
  22.     button [
  23.         # [ locate 8 80 size 16+4 16+4 pict Ppenbase ]
  24.         [ locate 8 80 size 32+4 32+4 id itemPenSample ]
  25.         [ locate 8 24 size 64 48 box Black id itemView ]
  26.         [ locate 96 32 size 16*4 16*4
  27.           dispfunc drawPltList_init id itemColList ]
  28.         [ locate 48 80 size 32 16 box Black id itemForeCol ]
  29.         [ locate 48 96 size 32 16 box White id itemBackCol ]
  30.         [ locate 126 100 size 36+6 12+4 string boxed "色空間"
  31.           id itemCmdColSpace ]
  32.         [ locate MIXRATX MIXRATY string "描画濃度" ]
  33.         [ locate 228 24 size 20*7 20*5 box White ]
  34.         [ locate "228+  0" "24+ 0" size 20 20 pict Pfline
  35.           id itemCmdPFLine ]
  36.         [ locate "228+ 20" "24+ 0" size 20 20 pict Pfpset
  37.           id itemCmdPFPset ]
  38.         [ locate "228+ 40" "24+ 0" size 20 20 pict Pline
  39.           id itemCmdLine ]
  40.         [ locate "228+ 60" "24+ 0" size 20 20 pict Pblot            id itemCmdBlot ]
  41.         [ locate "228+ 80" "24+ 0" size 20 20 pict Pspray            id itemCmdSpray ]
  42.         [ locate "228+100" "24+ 0" size 20 20 pict Pboxfill            id itemCmdBoxfill ]
  43.         [ locate "228+120" "24+ 0" size 20 20 pict Ppoly            id itemCmdPoly ]
  44.         [ locate "228    " "24+20" size 20 20 pict Ppaint            id itemCmdPaint ]
  45.         [ locate "228+ 20" "24+20" size 20 20 pict Pgoshi            id itemCmdGoshi ]
  46.         [ locate "228+ 40" "24+20" size 20 20 pict Psmooth            id itemCmdSmooth ]
  47.         [ locate "228+ 60" "24+20" size 20 20 pict Pcopy            id itemCmdCopy ]
  48.         [ locate "228+ 80" "24+20" size 20 20 pict Pcopypoly        id itemCmdCopyPoly ]
  49.         [ locate "228+100" "24+20" size 20 20 pict Pzoom            id itemCmdZoom ]
  50.         [ locate "228+120" "24+20" size 20 20 pict Pzoompoly        id itemCmdZoomPoly ]
  51.         [ locate "228+  0" "24+40" size 20 20 pict Pdiffuse            id itemCmdDiffuse ]
  52.         [ locate "228+ 20" "24+40" size 20 20 pict Pdiffuse_a        id itemCmdDiffuseA ]
  53.         [ locate "228+ 40" "24+40" size 20 20 pict Psharp            id itemCmdSharp ]
  54.         [ locate "228+ 60" "24+40" size 20 20 pict Pcopyboxhturn    id itemCmdCopyBoxHTurn ]
  55.         [ locate "228+ 80" "24+40" size 20 20 pict Pcopyboxvturn    id itemCmdCopyBoxVTurn ]
  56.         [ locate "228+100" "24+40" size 20 20 pict Pcopypolyhturn    id itemCmdCopyPolyHTurn ]
  57.         [ locate "228+120" "24+40" size 20 20 pict Pcopypolyvturn    id itemCmdCopyPolyVTurn ]
  58.         [ locate "228+  0" "24+60" size 20 20 pict Psand            id itemCmdSand ]
  59.         [ locate "228+ 20" "24+60" size 20 20 pict Psand_a            id itemCmdSandA ]
  60.         [ locate "228+ 40" "24+60" size 20 20 pict Pcolchg            id itemCmdColchg ]
  61.         [ locate "228+ 60" "24+60" size 20 20 pict Protatebox        id itemCmdRotateBox ]
  62.         [ locate "228+ 80" "24+60" size 20 20 pict Protatepoly        id itemCmdRotatePoly ]
  63.         [ locate "228+100" "24+60" size 20 20 pict Psave            id itemCmdSave ]
  64.         [ locate "228+120" "24+60" size 20 20 pict Pload            id itemCmdLoad ]
  65.         [ locate "228+  0" "24+80" size 20 20 pict Pundo            id itemCmdUndo ]
  66.         [ locate "228+ 20" "24+80" size 20 20 pict Pview            id itemCmdView ]
  67.         [ locate "228+ 40" "24+80" size 20 20 pict Ppat                id itemCmdPat ]
  68.         [ locate "228+ 60" "24+80" size 20 20 pict Psetup            id itemCmdSetup ]
  69.         [ locate "228+ 80" "24+80" size 20 20 pict Pmask            id itemCmdMask ]
  70.         [ locate "228+100" "24+80" size 20 20 pict Pairbrush        id itemCmdTest ]
  71.         [ locate "228+120" "24+80" size 20 20 pict Pexit            id itemCmdExit ]
  72.     ]
  73.     scrollbar [
  74.         [ locate 176 24 vertical size 0
  75.           allsize 31+5 dspsize 5 barfunc touchRGBbars dispnum inverse ]
  76.         [ locate 176+15 24 vertical size 0 allsize 31+5 dspsize 5
  77.           barfunc touchRGBbars dispnum inverse ]
  78.         [ locate 176+30 24 vertical size 0 allsize 31+5 dspsize 5
  79.           barfunc touchRGBbars dispnum inverse ]
  80.         [ locate MIXRATX+48+6+18+4 MIXRATY horisontal size 85
  81.           allsize 256+40 dspsize 40 barfunc touchMixbar dispnum ]
  82.     ]
  83. menuend
  84.